#!/usr/bin/perl

use Digest::MD5 qw( md5_hex );
use IO::Handle;
use Test::More;

#use Toolkit;

my @a1 = (2, 3, 4);

my @a2 = (8, 4, 5, 7, 8);

my @a3 = (1, 3, 2, 6);

# print "\n",join '', @{"a$_"} foreach (1..3); # this is aggregated form
foreach (1 .. 3) {
  print "\n", join '', @{"a$_"};
}

#quick('a' .. 'e');
